home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Everything For A Hacker
/
19990506-[HACK].iso
/
HEXEDIT
/
ASM_DOC.ZIP
/
TD.DOC
/
APPG.TXT
< prev
next >
Wrap
Text File
|
1980-01-01
|
11KB
|
270 lines
Åα¿½«ªÑ¡¿Ñ G
êß»«½∞º«óá¡¿Ñ «Γ½áñτ¿¬á Turbo Debugger ß αẽ¿τ¡δ¼¿ ∩ºδ¬á¼¿
-----------------------------------------------------------------
é φΓ«¼ »α¿½«ªÑ¡¿¿ ß«íαá¡δ ¡Ñ¬«Γ«αδÑ ß«óÑΓδ »« ¡á¿í«½ÑÑ
φΣΣÑ¬Γ¿ó¡«¼π ¿ß»«½∞º«óá¡¿ε «Γ½áñτ¿¬á Turbo Debugger ß αẽ¿τ¡δ¼¿
∩ºδ¬á¼¿ »α«úαá¼¼¿α«óá¡¿∩.
æ«óÑΓδ »« «Γ½áñ¬Ñ »α«úαá¼¼ ¡á ∩ºδ¬Ñ Turbo C
-----------------------------------------------------------------
Ä»Γ¿¼¿ºáµ¿∩ ¬«ñá ¬«¼»¿½∩Γ«α«¼ ---------------------------------
àß½¿ óδ ¿ß»«½∞ºπÑΓÑ »áαá¼ÑΓα -O ¬«¼á¡ñ¡«⌐ ßΓ᫬¿ »α¿ αáí«ΓÑ
ß ¬«¼»¿½∩Γ«α«¼ TCC ¿½¿ ¬«¼á¡ñπ Options/Compiler/Optimization »α¿
αáí«ΓÑ ß ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñ«⌐ αáºαáí«Γ¬¿ ñ½∩ ºáñá¡¿∩ αѪ¿¼á
úÑ¡Ñαᵿ¿ «»Γ¿¼¿º¿α«óá¡¡«ú« ¬«ñá, π óáß ¼«úπΓ ó«º¡¿¬¡πΓ∞
Γαπñ¡«ßΓ¿ »α¿ »«Φáú«ó«⌐ «Γ½áñ¬Ñ «Γñѽ∞¡δσ πτáßΓ¬«ó ¿ßσ«ñ¡«ú«
ΓѬßΓá »α«úαá¼¼δ. é τáßΓ¡«ßΓ¿, Ñß½¿ ó »α«úαá¼¼Ñ ¿¼ÑεΓß∩ 󽫪ѡ¡δÑ
«»ÑαáΓ«αδ if/else ¿½¿ ¡Ñ߬«½∞¬« Γá¬¿σ «»ÑαáΓ«α«ó, Γ« «ßΓá¡«ó¬á
»α«úαá¼¼δ »α¿ »α«σ«ñÑ ¬áªñ«ú« «»ÑαáΓ«αá else ¼«ªÑΓ «¬áºáΓ∞ß∩
ºáΓαπñ¡¿Γѽ∞¡«⌐. û¿¬½ "for" Γá¬ªÑ »ÑαÑΣ«α¼¿α«óδóáÑΓß∩ Γᬿ¼
«íαẫ¼, τΓ« ó ¡Ñ¬«Γ«αδσ ß½πτá∩σ »α¿ Ñú« Γαáßß¿α«ó¬Ñ ¼«úπΓ
󫺡¿¬¡πΓ∞ ¡Ñ¬«Γ«αδÑ ºáΓαπñ¡Ñ¡¿∩.
ùΓ«íδ ¿ºíѪáΓ∞ »«ñ«í¡δσ »α«í½Ñ¼ (óßΓαÑτáεΘ¿σß∩ ñ«ßΓáΓ«τ¡«
αÑñ¬«), óδ ¼«ªÑΓÑ ½¿í« »ÑαÑ⌐Γ¿ ó αѪ¿¼ «Γ½áñ¬¿ ¡á πα«ó¡Ñ
áßßѼí½Ñαá, «Γ¬αδó «¬¡« »α«µÑßß«αá, ½¿í« ºá»αÑΓ¿Γ∞ αѪ¿¼
«»Γ¿¼¿ºáµ¿¿, »«¬á »α«úαá¼¼á ¡Ñ íπñÑΓ «Γ½áªÑ¡á.
ä«ßΓπ» ¬ ßß佫τ¡δ¼ ñá¡¡δ¼ -------------------------------------
é ∩ºδ¬Ñ æ¿ ñ½∩ «íαáΘÑ¡¿∩ ¬ ¼áßß¿óá¼ φ½Ñ¼Ñ¡Γ«ó ñá¡¡δσ τáßΓ«
¿ß»«½∞ºπεΓß∩ π¬áºáΓѽ¿. è«úñá »«½∞º«óáΓѽ∞ σ«τÑΓ »α«óÑα¿Γ∞
ßß佫τ¡πε »ÑαѼѡ¡πε, «íδτ¡« Turbo Debugger »«¬áºδóáÑΓ Γ«½∞¬«
«ñ¿¡ φ½Ñ¼Ñ¡Γ, ¡á ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ π¬áºáΓѽ∞. ä½∩ Γ«ú« τΓ«íδ
»«½πτ¿Γ∞ ñ«ßΓπ» ¬ π¬áºáΓѽε, ¬á¬ ¬ ¼áßß¿óπ, ¼«ª¡« ó¡áτá½Ñ
»α«óÑα¿Γ∞ φëà φ½Ñ¼Ñ¡Γ ñá¡¡δσ «ñ¡¿¼ ¿º «íδτ¡δσ ß»«ß«í«ó,
¡á»α¿¼Ñα, »«¼ÑßΓ¿ó ¬παß«α ¡á »ÑαѼѡ¡πε ó «¬¡Ñ ¼«ñπ½∩ ¿ ¡áªáó
¬½áó¿Φπ Ctrl-I, á ºáΓѼ ºáñáΓ∞ ñ¿á»áº«¡ »α«ß¼«Γαá »ÑαѼѡ¡δσ ß
»«¼«Θ∞ε ¬«¼á¡ñδ Range ½«¬á½∞¡«ú« ¼Ñ¡ε «¬¡á »α«óÑન. ìá»α¿¼Ñα,
Ñß½¿ ó »α«úαá¼¼Ñ ¿¼ÑÑΓß∩ ß½ÑñπεΘ¿⌐ Σαáú¼Ñ¡Γ ΓѬßΓá:
char *p, buf[80];
for (p = buf; p < buf + sizeof(buf); p++) {
...
}
¼«ª¡« »α«óÑα¿Γ∞ »ÑαѼѡ¡πε p ¬á¬ ¼áßß¿ó ß¿¼ó«½«ó, óδíαáó
¬«¼á¡ñπ Range ¿º ½«¬á½∞¡«ú« ¼Ñ¡ε «¬¡á »α«óÑન ¿ óóÑñ∩ ó ¬áτÑßΓóÑ
¡áτá½∞¡«ú« ¿¡ñѬßá 0, á ó ¬áτÑßΓóÑ τ¿ß½á φ½Ñ¼Ñ¡Γ«ó 80.
Å«Φáú«óá∩ «Γ½áñ¬á ß½«ª¡δσ óδαáªÑ¡¿⌐ --------------------------
àß½¿ ¿¼ÑÑΓß∩ ß½«ª¡«Ñ óδαáªÑ¡¿Ñ, ¡á»α¿¼Ñα,
if (isvalid(x) && luseless(x)) {
...
}
¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ »α«óÑα¿Γ∞ αѺπ½∞ΓáΓ ¬áªñ«ú«
»«ñóδαáªÑ¡¿∩, óσ«ñ∩ΘÑú« ó ß«ßΓáó ñá¡¡«ú« πß½«ó¡«ú« óδαáªÑ¡¿∩.
àß½¿ ó óδαáªÑ¡¿¿ ¿¼ÑεΓß∩ ó맮óδ Σπ¡¬µ¿⌐, φΓ« ¼«ª¡« ßñѽáΓ∞, ¡áτáó
Γαáßß¿α«ó¬π Σπ¡¬µ¿¿ »« ¬½áó¿ΦÑ F7, á ºáΓѼ »«¼ÑßΓ¿ó ¬παß«α ¡á
ºá¬αδóáεΘπε ߬«í¬π } ó ¬«¡µÑ ñá¡¡«⌐ Σπ¡¬µ¿¿ ¿ ¡áªáó ¬½áó¿Φπ F4
ñ½∩ Γ«ú«, τΓ«íδ óδ»«½¡¿Γ∞ Σπ¡¬µ¿ε ñ« ñá¡¡«⌐ Γ«τ¬¿. çáΓѼ ß½ÑñπÑΓ
óδíαáΓ∞ ¬«¼á¡ñπ Data/ Function Return, τΓ«íδ »α«óÑα¿Γ∞ º¡áτÑ¡¿Ñ,
¬«Γ«α«Ñ íπñÑΓ ó«ºóαáΘÑ¡« ñá¡¡«⌐ Σπ¡¬µ¿Ñ⌐. àß½¿ ó πß½«ó¡«¼
óδαáªÑ¡¿¿ ¿¼ÑεΓß∩ ñαπú¿Ñ ó맮óδ Σπ¡¬µ¿⌐, »«ß½Ñ φΓ«ú« ¼«ª¡« ¡áªáΓ∞
¬½áó¿Φπ F7, τΓ«íδ «ßΓá¡«ó¿Γ∞ óδ»«½¡Ñ¡¿Ñ ¡á »Ñαó«⌐ ßΓ᫬Ñ
ß½ÑñπεΘÑ⌐ Σπ¡¬µ¿¿, óσ«ñ∩ΘÑ⌐ ó πß½«ó¡«Ñ óδαáªÑ¡¿Ñ. çáΓѼ ¼«ª¡«
»«óΓ«α¿Γ∞ «»¿ßá¡¡πε »α«µÑñπαπ ñ½∩ »α«óÑન ó«ºóαáΘáѼ«ú«
º¡áτÑ¡¿∩.
àß½¿ ¿¼ÑÑΓß∩ ß½«ª¡«Ñ óδαáªÑ¡¿Ñ, ¡Ñ ß«ñÑαªáΘÑÑ ó맮ó«ó
Σπ¡¬µ¿⌐, ¡á»α¿¼Ñα,
if (x <= 5 && y[z] > 8) {
...
}
¿ ΓαÑíπÑΓß∩ »α«óÑα¿Γ∞ αѺπ½∞ΓáΓ ¬áªñ«ú« »«ñóδαáªÑ¡¿∩,
ß½ÑñπÑΓ «Γ¬αδΓ∞ «¬¡« »α«µÑßß«αá, «ßπΘÑßΓó¿Γ∞ »«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ
¡á πα«ó¡Ñ áßßѼí½Ñαá ¿ »α«óÑα¿Γ∞ αѺπ½∞ΓáΓδ, »«¼ÑΘáѼδÑ ó
αÑú¿ßΓαδ »α«µÑßß«αá.
æ«óÑΓδ »« «Γ½áñ¬Ñ »α«úαá¼¼ ¡á ∩ºδ¬Ñ Turbo Assembler
-----------------------------------------------------------------
Åα«ß¼«Γα ßΓ᫬ ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ ñá¡¡δσ -----------------------
ä½∩ »α«ß¼«Γαá »«ßΓα«τ¡«ú« ΦÑßΓ¡áñµáΓ¿α¿τ¡«ú« ñá¼»á »á¼∩Γ¿
¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬«¼á¡ñδ Data|add Watch ¿ Data|Evaluate/Modify
ß ¼«ñ¿Σ¿¬áΓ«α«¼ Σ«α¼áΓá, ¡á»α¿¼Ñα, ¬«¼á¡ñá
[ES:DI],20m
π¬áºδóáÑΓ, τΓ« óδ σ«Γ¿ΓÑ »α«ß¼«ΓαÑΓ∞ »«ßΓα«τ¡δ⌐
ΦÑßΓ¡áñµáΓ¿α¿τ¡δ⌐ ñá¼» «í½áßΓ¿ »á¼∩Γ¿, ß«ñÑαªáΘÑ⌐ 20 íá⌐Γ«ó, ¡á
¬«Γ«απε π¬áºδóáÑΓ »áαá αÑú¿ßΓα«ó ES:DI.
ÄΓ½áñ¬á ¡á πα«ó¡Ñ ¿ßσ«ñ¡«ú« ΓѬßΓá ----------------------------
¡« óδ»«½¡∩Γ∞ áßßѼí½Ñα¡δ⌐ ¬«ñ ó »«Φáú«ó«¼ αѪ¿¼Ñ,
¿ß»«½∞ºπ∩ «¬¡« ¼«ñπ½∩ Γ«τ¡« ΓᬠªÑ, ¬á¬ ¿ ñ½∩ ∩ºδ¬«ó óδß«¬«ú«
πα«ó¡∩. àß½¿ ΓαÑíπÑΓß∩ »α«óÑα∩Γ∞ º¡áτÑ¡¿∩ αÑú¿ßΓα«ó, ¼«ª¡«
»«¼ÑßΓ¿Γ∞ «¬¡« αÑú¿ßΓα«ó ß»αáóá «Γ «¬¡á ¼«ñπ½∩.
é ¡Ñ¬«Γ«αδσ ß½πτá∩σ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ «ñ¡«óαѼѡ¡«
»α«ß¼áΓα¿óáΓ∞ ¿ßσ«ñ¡δ⌐ ¬«ñ ¿ ß«ßΓ«∩¡¿Ñ »α«µÑßß«αá. ä½∩ φΓ«ú«
ß½ÑñπÑΓ «Γ¬αδΓ∞ «¬¡« »α«µÑßß«αá, á ºáΓѼ ó ½«¬á½∞¡«¼ ¼Ñ¡ε »«ñ«¬¡á
¬«ñá πßΓá¡«ó¿Γ∞ »áαá¼ÑΓα Mixed ó ß«ßΓ«∩¡¿Ñ "both" («íá). Æᬿ¼
«íαẫ¼ óδ ß¼«ªÑΓÑ «ñ¡«óαѼѡ¡« »α«ß¼áΓα¿óáΓ∞ ¬á¬ ¿ßσ«ñ¡δ⌐ ΓѬßΓ,
Γᬠ¿ íá⌐Γδ ¼áΦ¿¡¡«ú« ¬«ñá. àß½¿ ΓαÑíπÑΓß∩ »α«ß¼áΓα¿óáΓ∞ íá⌐Γδ
¼áΦ¿¡¡«ú« ¬«ñá, ¡Ñ ºáíπñ∞ΓÑ πóѽ¿τ¿Γ∞ αẼÑα «¬¡á »α«µÑßß«αá,
¡áªáó ¬½áó¿Φπ F5.
Åα«óÑα¬á ¿ ¿º¼Ñ¡Ñ¡¿Ñ º¡áτÑ¡¿⌐ αÑú¿ßΓα«ó -----------------------
ìá¿í«½ÑÑ «τÑó¿ñ¡δ⌐ ß»«ß«í ¿º¼Ñ¡Ñ¡¿∩ º¡áτÑ¡¿∩ αÑú¿ßΓαá
ß«ßΓ«¿Γ ó Ñú« óδñѽѡ¿¿ ¬παß«α«¼ ½¿í« ó «¬¡Ñ »α«µÑßß«αá, ½¿í« ó
«¬¡Ñ αÑú¿ßΓα«ó. ìá¿í«½ÑÑ íδßΓαδ⌐ ß»«ß«í ¿º¼Ñ¡Ñ¡¿∩ º¡áτÑ¡¿∩
αÑú¿ßΓαá - φΓ« ¿ß»«½∞º«óá¡¿Ñ ¬«¼á¡ñδ F10/Data/Evaluate/Modify. éδ
¼«ªÑΓÑ óóÑßΓ¿ óδαáªÑ¡¿Ñ, óδ»«½¡∩εΘÑÑ »α¿ßóá¿óá¡¿Ñ, ¬«Γ«α«Ñ
¡Ñ»«ßαÑñßΓóÑ¡¡« ¼«ñ¿Σ¿µ¿απÑΓ ß«ñÑন¼«Ñ αÑú¿ßΓαá, ¡á»α¿¼Ñα,
óδαáªÑ¡¿Ñ
SI=99
ºáúαπº¿Γ ó αÑú¿ßΓα SI τ¿ß½« 99.
ǡὫú¿τ¡«, ¿ß»«½∞ºπ∩ Γπ ªÑ ¼ÑΓ«ñ¿¬π, óδ ¼«ªÑΓÑ »α«óÑα∩Γ∞
º¡áτÑ¡¿∩ αÑú¿ßΓα«ó, ¡á»α¿¼Ñα, ¬«¼á¡ñá
Alt-D E AX
«Γ«íαáº¿Γ º¡áτÑ¡¿Ñ αÑú¿ßΓαá AX.
æ«óÑΓδ »« «Γ½áñ¬Ñ »α«úαá¼¼ ¡á ∩ºδ¬Ñ Turbo Pascal
-----------------------------------------------------------------
Å«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ -----------------------
Åα¿ ºáúαπº¬Ñ »α«úαá¼¼δ ó «Γ½áñτ¿¬ Turbo Debugger ¼áα¬Ñα
óδ»«½¡Ñ¡¿∩ (ßΓαѽ¬á, ¡á»αáó½Ñ¡¡á∩ ó»αáó«) π¬áºδóáÑΓ ¡á
ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó« begin ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ. é
ñÑ⌐ßΓó¿Γѽ∞¡«ßΓ¿ «»ÑαáΓ«α begin ß««ΓóÑΓßΓóπÑΓ ßÑα¿¿ ó맮ó«ó
αáºñѽ«ó ¿¡¿µ¿á½¿ºáµ¿¿ óßÑσ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ ¿ß»«½∞ºπÑΓ »α«úαá¼¼á
(»αÑñ»«½áúáÑΓß∩, τΓ« «¡¿ ¿¼ÑεΓ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿). éßÑ »α«úαá¼¼δ
¡áτ¿¡áεΓß∩ ß ó맮óá ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ System.
àß½¿ ó φΓ«⌐ Γ«τ¬Ñ óδ ¡áª¼ÑΓÑ F7 (á¬Γ¿ó¡πε ¬½áó¿Φ𠬫¼á¡ñδ
Run/Trace Into), óδ »«»áñÑΓÑ ó »Ñαóδ⌐ ¼«ñπ½∞, ¿¼ÑεΘ¿⌐ ¬«ñ
¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αδ⌐ íδ½ ß¬«¼»¿½¿α«óá¡ ó αѪ¿¼Ñ Σ«α¼¿α«óá¡¿∩
¿¡Σ«α¼áµ¿¿ ñ½∩ «Γ½áñ¬¿. àß½¿ óδ ¡áª¼ÑΓÑ ¬½áó¿Φπ F7 »«ß½Ñ
»α«σ«ªñÑ¡¿∩ ß½«óá end ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ »Ñαó«ú« ¼«ñπ½∩, óδ
»«»áñÑΓÑ ó ß½ÑñπεΘ¿⌐ ¼«ñπ½∞. é ¬«¡µÑ ¬«¡µ«ó óδ óÑα¡ÑΓÑß∞ ó
ú½áó¡πε »α«úαá¼¼π ¿ ß¼«ªÑΓÑ óδ»«½¡¿Γ∞ ÑÑ »Ñαóδ⌐ «»ÑαáΓ«α.
àß½¿ ªÑ ó ¡áτá½Ñ »α«úαá¼¼δ óδ ¡áª¼ÑΓÑ F8 (á¬Γ¿ó¡πε ¬½áó¿Φπ
¬«¼á¡ñδ Run/Step Over), óδ »α«»πßΓ¿ΓÑ óδ»«½¡Ñ¡¿Ñ óßÑú« ¬«ñá
¿¡¿µ¿á½¿ºáµ¿¿ ¿ ¡áτ¡ÑΓÑ »«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ ΓÑ½á «ß¡«ó¡«⌐
»α«úαá¼¼δ.
Å«Φáú«ó«Ñ óδ»«½¡Ñ¡¿Ñ »α«µÑñπα óδσ«ñá --------------------------
è«úñá óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ºáóÑαΦáÑΓß∩, π»αáó½Ñ¡¿Ñ
»ÑαÑñáÑΓß∩ µÑ»«τ¬Ñ »α«µÑñπα óδσ«ñá («íαáΓ¿ΓÑß∞ ¬ ú½áóÑ
"ôú½πí½Ñ¡¡«Ñ º¡á¬«¼ßΓó« ß ∩ºδ¬«¼ Turbo Pascal" æ»αáó«τ¡«ú«
απ¬«ó«ñßΓóá »« ∩ºδ¬π Turbo Pascal). è«úñá óδ »α«ñ«½ªáÑΓÑ
óδ»«½¡∩Γ∞ »«Φáú«óπε «Γ½áñ¬π »«ß½Ñ «»ÑαáΓ«αá end «ß¡«ó¡«⌐
»α«úαá¼¼δ, Turbo Debugger ¡Ñ óδ»«½¡∩ÑΓ Γαáßß¿α«ó¬π »α«µÑñπα
óδσ«ñá. ä½∩ Γ«ú« τΓ«íδ «ßπΘÑßΓó¿Γ∞ »«Φáú«óπε «Γ½áñ¬π φΓ«⌐
µÑ»«τ¬¿, »«¼ÑßΓ¿ΓÑ Γ«τ¬π «ßΓá¡«óá ó «»ÑαáΓ«α óδσ«ñá ¿º ¬áªñ«⌐
»α«µÑñπαδ, ¬«Γ«απε ΓαÑíπÑΓß∩ «Γ½áñ¿Γ∞.
è«¡ßΓá¡Γδ -----------------------------------------------------
êñÑ¡Γ¿Σ¿¬áΓ«αδ ¬«¡ßΓá¡Γ αáß»«º¡áεΓß∩ Γ«½∞¬« ñ½∩ τ¿ß½«óδσ ¿
Γ¿»¿º«óá¡¡δσ ¬«¡ßΓá¡Γ, ¡á»α¿¼Ñα,
program Test;
const
A = 5;
B = Pi;
Message = 'Testing';
Caps = ['A'..'Z'];
Digits : string[10] = '0123456789';
begin
Writeln(A);
Writeln(B);
Writeln(Message);
Writeln('A' in Caps);
Writeln(Digits);
end.
é φΓ«⌐ »α«úαá¼¼Ñ óδ ¼«ªÑΓÑ »α«óÑα¿Γ∞ A (τ¿ß½«óπε ¬«¡ßΓá¡Γπ)
¿ Digits (Γ¿»¿º«óá¡¡πε ¬«¡ßΓá¡Γπ), «ñ¡á¬« ¡Ñ ¼«ªÑΓÑ »α«óÑα¿Γ∞ B
(¬«¡ßΓá¡Γπ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐), Message ¿ Caps (ßΓ᫬«óπε
¬«¡ßΓá¡Γπ ¿ ¬«¡ßΓá¡Γπ-¼¡«ªÑßΓó«).
Åα«¼ÑªπΓ«τ¡δÑ ßΓ᫬¿ ¿ ¼¡«ªÑßΓóá ó ßΓÑ¬Ñ ----------------------
àß½¿ óδ ¿ß»«½∞ºπÑΓÑ «¬¡« »α«µÑßß«αá, ¿¼Ñ⌐ΓÑ ó ó¿ñπ, τΓ«
Turbo Debugger áóΓ«¼áΓ¿τÑ߬¿ αẼÑΘáÑΓ »α«¼ÑªπΓ«τ¡δÑ ßΓ᫬¿ ¿
¼¡«ªÑßΓóá ó ßΓѬÑ. Ä¡ ñѽáÑΓ φΓ« ß½ÑñπεΘ¿¼ «íαẫ¼.
ä½∩ «»Ñαᵿ¿ "+", óδ»«½¡∩Ѽ«⌐ ¡áñ ßΓα«¬á¼¿, ¿ óßÑσ Σπ¡¬µ¿⌐
«íαáí«Γ¬¿ ßΓ᫬ αѺÑαó¿απÑΓß∩ ßΓѬ«ó«Ñ »α«ßΓαá¡ßΓó«, ó ¬«Γ«α«Ñ
»«¼ÑΘáεΓß∩ αѺπ½∞ΓáΓδ φΓ¿σ «»Ñαᵿ⌐. ¥Γ« ßΓѬ«ó«Ñ »α«ßΓαá¡ßΓó«
αѺÑαó¿απÑΓß∩ ó ºá»¿ß¿ á¬Γ¿óᵿ¿ óδºδóáεΘÑ⌐ »«ñ»α«úαá¼¼δ.
ǡὫú¿τ¡«, «»Ñαᵿ¿ +, - ¿ *, óδ»«½¡∩ѼδÑ ¡áñ ¼¡«ªÑßΓóἿ,
αѺÑαó¿απεΓ ßΓѬ«ó«Ñ »α«ßΓαá¡ßΓó« ñ½∩ »α«¼ÑªπΓ«τ¡δσ αѺπ½∞ΓáΓ«ó.
ê߬πß¡«Ñ »αÑ«íαẫóá¡¿Ñ Γ¿»«ó ---------------------------------
é ¼«ñπ½Ñ Dos «»αÑñѽѡ ó¡πΓαÑ¡¡¿⌐ Σ«α¼áΓ ñá¡¡δσ ñ½∩ óßÑσ
»αÑñ«»αÑñѽѡ¡δσ Γ¿»«ó. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ φΓ¿ «»¿ßá¡¿∩ ñ½∩
»α«óÑન ß«ñÑন¼«ú« ½εí«⌐ Σá⌐½«ó«⌐ »ÑαѼѡ¡«⌐. Å«»α«íπ⌐ΓÑ óóÑßΓ¿
»α¿óÑñÑ¡¡πε ¡¿ªÑ »α«úαá¼¼π.
program Typecast;
uses Dos;
var
TextFile : Text;
IntFile : file of Integer;
begin
Assign(TextFile, 'TEXT.DTA');
Rewrite(TextFile);
Assign(IntFile, 'INT.DTA');
Rewrite(IntFile);
Close(TextFile);
Close(IntFile);
end.
ÆÑ»Ñα∞ ºá¡Ñß¿ΓÑ ó «¬¡« ߽Ѫѡ¿∩ ß½ÑñπεΘ¿Ñ τÑΓδαÑ óδαáªÑ¡¿∩:
IntFile
TextFile
FileRec(IntFile),r
TextRec(TextFile),r
ÅÑαóδÑ ñóá óδαáªÑ¡¿∩ íπñπΓ »«¬áºδóáΓ∞ ß«ßΓ«∩¡¿∩ Σá⌐½«ó
(CLOSED, OPEN, INPUT, OUTPUT) ¿ ¿¼Ñ¡á ñ¿ß¬«óδσ Σá⌐½«ó, á óΓ«αδÑ
ñóá ¿ß»«½∞ºπεΓ »αÑ«íαẫóá¡¿Ñ Γ¿»á ñ½∩ «Γ«íαáªÑ¡¿∩ ¿¼Ñ¡
ó¡πΓαÑ¡¡¿σ »«½Ñ⌐ ¿ º¡áτÑ¡¿⌐ Σá⌐½«óδσ »ÑαѼѡ¡δσ.
æ«óÑΓδ »« ¿ß»«½∞º«óá¡¿ε «¬¡á »α«µÑßß«αá ñ½∩ »α«úαá¼¼ ¡á Åá߬á½Ñ
-----------------------------------------------------------------
- Å«ñ»α«úαá¼¼δ ¼«ñπ½∩ System ¡Ñ ¿¼ÑεΓ ¿¼Ñ¡. Åα¿ ß½ÑªÑ¡¿¿ ºá
¬«¼á¡ñ«⌐ ó맮óá ó «¬¡Ñ »α«µÑßß«αá, óδ πó¿ñ¿ΓÑ «íαáΘÑ¡¿Ñ »«
áíß«½εΓ¡«¼π áñαÑßπ, á ¡Ñ »« ß¿¼ó«½¿τÑ߬«¼π ¿¼Ñ¡¿.
- ä½∩ α∩ñá »«ñ»α«úαá¼¼ óó«ñá/óδó«ñá, ¡á»α¿¼Ñα ReadLn ¿
WriteLn, τáßΓ« Σ«α¼¿απÑΓß∩ ¡Ñ߬«½∞¬« ó맮ó«ó ¡á ∩ºδ¬Ñ áßßѼí½Ñαá.
- ä½∩ ¬«¡Γα«½∩ úαá¡¿µ, ßΓÑ¬á ¿ «»Ñαᵿ⌐ óó«ñá/óδó«ñá
Σ«α¼¿απεΓß∩ ó맮óδ í¿í½¿«ΓÑτ¡δσ »«ñ»α«úαá¼¼ ñ½∩ óδ»«½¡Ñ¡¿∩
ß««ΓóÑΓßΓóÑ¡¡δσ Σπ¡¬µ¿⌐.
- É∩ñ «»Ñαᵿ⌐ (π¼¡«ªÑ¡¿Ñ º¡áτÑ¡¿⌐ Γ¿»á logint, ¬«¡¬áΓѡᵿ∩
ßΓ᫬ ¿ ñα.) αÑ὿ºπÑΓß∩ »«ßαÑñßΓó«¼ ó맮óá í¿í½¿«ΓÑτ¡δσ
»«ñ»α«úαá¼¼.
- ï¿ΓÑαá½∞¡δÑ ¬«¡ßΓá¡Γδ (ßΓ᫬¿, ¼¡«ªÑßΓóá ¿ τ¿ß½á ß
»½áóáεΘÑ⌐ Γ«τ¬«⌐) »α«µÑñπαδ »«¼ÑΘáεΓß∩ ó ßÑú¼Ñ¡Γ ¬«ñá
¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ Γ«τ¬«⌐ óσ«ñá ó »α«µÑñπαπ.